home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol009 / coretest.bas < prev    next >
Encoding:
BASIC Source File  |  1987-01-11  |  384 b   |  21 lines
  1. DIM C(4096)
  2.     PRINT "CORE TEST"
  3.     PRINT
  4.  
  5.     PRINT FRE;" BYTES FREE"
  6.  
  7.     INPUT "START,STOP";J,K
  8.  
  9.     FOR N=J TO K
  10.     C(N)=0
  11.     NEXT N
  12.     PRINT "CORE ZEROED ";J;" TO ";K
  13.  
  14.     FOR N=J TO K
  15.     IF C(N)=0 THEN 200
  16.     PRINT "ERROR @ ";N;TAB(10);"IS:";C(N);"  S.B. 0"
  17. 200    NEXT N
  18.  
  19.     PRINT "END TEST"
  20.     END
  21.